home *** CD-ROM | disk | FTP | other *** search
/ Weekly Play Boy All Stars / Weekly Play Boy All Stars 1.iso / pc / SS / M_ITO.EXE / M_ITO.dcr / 00001_DMinit.ls next >
Encoding:
Text File  |  2003-01-22  |  825 b   |  44 lines
  1. global gfound
  2.  
  3. on prepareMovie
  4.   global oldres
  5.   cursor(200)
  6.   dmpack1reg("41725")
  7.   x = the number of xtras
  8.   gfound = 0
  9.   repeat with i = 1 to x
  10.     if xtra(i).name = "SetMouseXtra" then
  11.       gfound = 1
  12.       exit repeat
  13.     end if
  14.   end repeat
  15.   if not gfound then
  16.     if the machineType = 256 then
  17.       openXLib(the pathname & "SMXtra")
  18.     else
  19.       openXLib(the pathname & "SMXtra.Fat")
  20.     end if
  21.   end if
  22.   put interface(xtra("SetMouseXtra")) into field "interface"
  23.   x = the stageLeft
  24.   y = the stageTop
  25.   setmouse(x, y)
  26.   oldres = changeres([640, 480])
  27. end
  28.  
  29. on startMovie
  30.   preload()
  31. end
  32.  
  33. on stopMovie
  34.   global oldres
  35.   changeres(oldres)
  36.   if not gfound then
  37.     if the machineType = 256 then
  38.       closeXLib(the pathname & "SMXtra")
  39.     else
  40.       closeXLib(the pathname & "SMXtra.Fat")
  41.     end if
  42.   end if
  43. end
  44.